﻿

Namespace Attributes
    <System.AttributeUsage(System.AttributeTargets.Property, AllowMultiple:=False, Inherited:=True), System.Serializable()> _
    Public Class ForeingClassMappingAttribute
        Inherits Attribute
        Implements IClassAttribute, IMappingClass

        Private _MappingClassName As String
        Public Property MappingClassName() As String
            Get
                Return _MappingClassName
            End Get
            Set(ByVal value As String)
                _MappingClassName = value
            End Set
        End Property
        Private _MappingPropertyName As String
        Public Property MappingPropertyName() As String
            Get
                Return _MappingPropertyName
            End Get
            Set(ByVal value As String)
                _MappingPropertyName = value
            End Set
        End Property

        Public Sub New(ByVal ClassName As String, ByVal OtherPropertyName As String)
            Me.MappingClassName = ClassName
            Me.MappingPropertyName = OtherPropertyName

        End Sub

    End Class
End Namespace